
genModels <- function(depvar,controlvars){
	# Note that depvars and controlvars must be vectors of strings
  # Function that joins control variable strings and 
  # strings of dependent variables
	temp.vector <- NULL
	temp.singular <- NULL
	for(i in 1:length(controlvars)){
		temp.singular <- paste(depvar,controlvars[i],sep="~")
		temp.vector <- c(temp.vector,temp.singular)
	}
	return(temp.vector)
}
